home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
andrews
/
waving to shore
< prev
next >
Wrap
Text File
|
1999-06-15
|
996b
|
33 lines
Category: Andrew's Filters 21
Title: Waving To Shore...
Copyright: Freeware
Author: AB
Filename: WavShore.8bf
R:mix((c2m(x,y)-c2m(ctl(0),ctl(1)))%ctl(3)>ctl(2)||(c2m(X-x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(3)>ctl(2)||(c2m(X-x,y)-c2m(ctl(0),ctl(1)))%ctl(3)>ctl(2)||(c2m(x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(3)>ctl(2)?c:ctl(6),r,ctl(7),120)
G:mix((c2m(x,y)-c2m(ctl(0),ctl(1)))%ctl(4)>ctl(2)||(c2m(X-x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(4)>ctl(2)||(c2m(X-x,y)-c2m(ctl(0),ctl(1)))%ctl(4)>ctl(2)||(c2m(x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(4)>ctl(2)?c:ctl(6),g,ctl(7),120)
B:mix((c2m(x,y)-c2m(ctl(0),ctl(1)))%ctl(5)>ctl(2)||(c2m(X-x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(5)>ctl(2)||(c2m(X-x,y)-c2m(ctl(0),ctl(1)))%ctl(5)>ctl(2)||(c2m(x,Y-y)-c2m(ctl(0),ctl(1)))%ctl(5)>ctl(2)?c:ctl(6),b,ctl(7),120)
A:a
ctl[0]: x
ctl[1]: y
ctl[2]: r
ctl[3]: Red Mod
ctl[4]: Green Mod
ctl[5]: Blue Mod
ctl[6]: Colour
ctl[7]: Mix
val[0]: 37
val[1]: 79
val[2]: 9
val[3]: 12
val[4]: 14
val[5]: 16
val[6]: 23
val[7]: 35